home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / ti / pcscm3_3 / pkdisk2.arc / EDIT.FSL < prev    next >
Encoding:
Text File  |  1988-06-07  |  7.5 KB  |  137 lines
  1. #!fast-load  (C) Copyright 1988 by Texas Instruments
  2. #!fast-load            All Rights Reserved.
  3. h006F 13F2
  4. lx14READ-EVAL-PRINT-LOOPlx04MOVElx09BEGINNINGlx04NEXTlx08PREVIOUSlx04FINDl
  5. x0FADD-PARENTHESESlx07FP-PARTlx0CELEMENT-PARTlx12PRINT-DEPTH-LENGTHlx06PARENTl
  6. x0FSMART-LIST-TAILlx08VERY-TOPlx0DINITIAL-STACKlx02FPlx05STACKlx07COMMANDl
  7. x05DONE?lx06BUFFERn
  8. x14READ-EVAL-PRINT-LOOP
  9. x04MOVE
  10. lx04STOPn
  11. x04STOP
  12. x09BEGINNING
  13. lx04STOPn
  14. x04NEXT
  15. lx04STOPlx05STOP1n
  16. x05STOP1
  17. x08PREVIOUS
  18. lx04STOPlx05STOP1n
  19. lx10GET-NEXT-ELEMENTlx0ATEMP-STACKlx07TEMP-FPlx06FOUND?lx03PFVn
  20. x10GET-NEXT-ELEMENT
  21. lx04STOPn
  22. x0B**UNBOUND**
  23. x03PFV
  24. x04FIND
  25. x0FADD-PARENTHESES
  26. x03CAR
  27. x07FP-PART
  28. x03CDR
  29. x0CELEMENT-PART
  30. lx02P1n
  31. x02P1
  32. x12PRINT-DEPTH-LENGTH
  33. x06PARENT
  34. x0FSMART-LIST-TAIL
  35. x04EDIT
  36. x05DONE?
  37. x02FP
  38. x08VERY-TOP
  39. x0DINITIAL-STACK
  40. x05STACK
  41. x04EXPT
  42. x0DSYMBOL->ASCII
  43. x06EDIT->
  44. x04READ
  45. x06BUFFER
  46. x07COMMAND
  47. x01*
  48. x01?
  49. x01P
  50. x02??
  51. x02PP
  52. x01N
  53. x02PR
  54. x01B
  55. x01T
  56. x01F
  57. x02IB
  58. x02IA
  59. x02SB
  60. x02SA
  61. x01D
  62. x02DP
  63. x02AP
  64. x01S
  65. x01R
  66. x02PS
  67. x04MAC?
  68. x03MAC
  69. x01Q
  70. x02#T
  71. x07WRITELN
  72. s0016  ?  Unknown command: 
  73. x08ED*MACRO
  74. x05ERROR
  75. s0015  ?  Error with macro
  76. x08LIST-REF
  77. s0010 is not a macro.
  78. lx01Plx01?lx02PPlx02??n
  79. x07EXPLODE
  80. c23
  81. s0021  ?  Cannot do a Move on an atom.
  82. x08CIRCULAR
  83. x10CANNOT-POP-STACK
  84. lx03...n
  85. s001A  ?  Already at top level.
  86. s0028  ?  There is no Next from this position
  87. s002C  ?  Can't execute Next command at top level
  88. s002C  ?  There is no Previous from this position
  89. s0028  ?  Can't execute Previous at top level
  90. x06FOUND?
  91. s0012  ?  Did not find 
  92. x0ATEMP-STACK
  93. x07TEMP-FP
  94. s0025  ?  Non-number or non-* to Replace: 
  95. s0038  ?  FP is a circular list, can't use negative numbers: 
  96. s0013  ?  There are not 
  97. s0009 elements
  98. x11**ATOM-RETURNED**
  99. s0010  ?  Can't find 
  100. s0027  ?  FP is an atom, can't insert after 
  101. s0008 element
  102. s0027  ?  FP is an atom, can't splice after 
  103. s0025  ?  Second argument must be a list: 
  104. s0030  ?  First argument must be a non-zero integer: 
  105. s0028  ?  FP is an atom, can't insert before 
  106. s0028  ?  FP is an atom, can't splice before 
  107. s0021  ?  FP is an atom, can't delete 
  108. s0024  ?  Non-number or non-* to Delete: 
  109. s0029  ?  FP is an atom, can't Add Parentheses
  110. s0015  ?  First argument, 
  111. s0028 is positioned to the right of the 2nd, 
  112. s002D  ?  Non-number or non-* to Add Parentheses: 
  113. s002E  ?  Non-number or non-* to Add Parentheses:  
  114. s0030  ?  Can't delete parentheses for this position 
  115. s001A  ?  Element is not a list
  116. x0F*ATOM-RETURNED*
  117. s0009 element.
  118. t▌<B<╣▌<║=<▌<=<<#▌     < != 
  119. <┌
  120. <α▌     
  121. < ▐=
  122. ▌ 
  123. <├    ▌
  124. <╟    =
  125. <s
  126.  =< ▌<=< <    =;o O o  !5!
  127. 4┤;"A AQ 0Θ  "4 @#4Q╨SP;;$┤%4&&Ç" &oo&;&@Ç"    &o&;;'@ëê"'@(dê#c'@ )e "
  128. 4┤; *e "
  129. ┤; +e "
  130. 4,5 ,e "  , 5 -e "5 .e "
  131. 5 /e "5 0e "!Y 1e "'C  5 2e "'C 'I !  3e "'C 'I !  4e "'C 'I !φ  5e "'C 'I !Ω
  132.  6e "    'C!ƒ  7e "    'C!á 8e "'C 'I  5  9e "'C 'I !
  133.  :e "'C 'I !î ;e "!c² <e "    'C!╘ =e "'C 'I !í >e "
  134. ??;'@0┌"' #╡&'@A 5 '@5@ Bt A@A 0. Cd"&' @D5 & q&;Ñ^"  0 ;C;#ÜÇ"$0╖ " Q E 5 ;@Ç"H@0ê " Q E 4    @  A0ä  O ;@0s  A 0f O;;&ê$-&@''Ç"'o'&A&0,ⁿ ╚;@ COB u;0@ " "@ ⁿxⁿ ⁿAx =O ,5@ F4 ;É" Bt ;;"1@ # 4 /\ "  :_ "
  135.  A  ═ ;?;'@Ggê"
  136. 4┤"    0ü;0 √0▐■ 5H4@ Id " %A0b  "  A 
  137.  !~· ; ;╡J@5Ç"5 (d "(0éªA;0 # V ` " 0L @   ;Q 0£AR0@;K5O !O  ! ;!A"!@!A!;L;` "M;Ç";`"I;@Ç" @AQ  0┐ O; @Q  0ñ A Q  0ï O;╡N@50Q"50F 4; !N ╡O@5╡P@50
  138. "    50 4  4 (d " 4(   4Q  4;Ç";AÇ"Q;d"
  139. \ê"#E
  140. A
  141. Q
  142.  ₧;╡Q@5╡R@50+"    50 ■4  4 (d " 4( 5  4  ^" 4   4Q   4;0δ■ ;@ !;f"?S;Ç"
  143. 54 ╘_"0á   QP;;╡T @5 0&"50²44 (d"
  144. 5 0╔A(d"( Q0ªⁿ@=!  Ç ê " +A Ç " @ O ; Æ " @ O ;AQ  ╦ ;@"@S!UVÇ"
  145. 4 40í■Sê"!  4 U ! V ;!Aê;!  44( d # ? Ç " 4 ª  ;0▓√4ª;4 ^ " 4  44Q  z  ;( d "  ª  ; ë # g ^ " 0    ;0ú² #.  Q  Ç"!6;  ╡  @W5 ╡@X 5 ╡@Y Z5 _ " [; Æ " ; Ç " [;AQ  π#=f" ?
  146. ;Ç";@0╨  A 0├ O;; Ç " (O; Æ " @ O ;AQ  ╒0  "
  147. 0╒² ╡ @\4 ;ï"ªAê;; Ç "  ╡ -@] ^5O Ç "  ╡ @_ ^5 ë "  Æ ê # 0à  # [0╦√ #A  Q   Ç"!N■p;!%■ ╡  @`5  ╡  @a5  Ç "  ╡ -@b ^5O Ç "  ╡ @c ^5 ë "  Æ ê # ó0á■ # ~0µ· #d^ "p!%ⁿ  Q■ Q  Ç"!F²p;!² ╡  @`5  ╡  @a5  (d " ª;ë#⌐Æ"    !é√0· #  Ç #  ╡ @d ^5 ^ "  A  !7√Q■ 4   Ç"êê"!Tⁿ ;!1ⁿ╡@e 5 @C Ç"╡@f5(d#ªAo;ë#╟^#O!y·( d#ü 0°°#a^#O!8·Q■ Q  Ç"!Y√O;!2√ ë# 0n°0d°#╓#╟`"!√`"!≡·_#╡@g h5zQ   Ç " !ƒ·   $^ $#  O   !∙ Q ■$ⁿ$zⁿ  ⁿ$Q$ (ⁿ(zⁿ$$ⁿO$$ $;!/·!'· ╡@i 5 ╡ @j5 ╡k @5 ╡l@5ë"Æê#╪0≈ # ┐Q 0┐≈  md"Ç#╡@d n5A Æ#b @ 0^·#I^#@p!ε≈Q■ⁿzⁿⁿ@p;0  ;!∙!·°0ε■ ;
  148. z
  149.